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MODULE BASSSTR ( ! Routines to do gasi¢ sg A fye pes ten 
pOENT = *1+008' ! module BASSTR.B32 Edit: 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
+ onmpokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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' 
i 
i 
003 ' ABSTRACT: 
0035 ' 
0036 : This module has entry points long, floating, double, 
0037 : 9 floating, and h floating. 
0038 : he double routine checks for a BASIC frame and picks 
0039 : up the scale factor. Then all routines convert a number ; 
40 0040 : to a numeric string as it would be formatted by the BASIC rint 
41 0041 : statement but without leading or trailing spaces (by a CALL to the 
: rd : correct BAS$ conversion routine). 
7: re} : ENVIRONMENT: User mode, AST level or not or mixed 
46 0046 ' AUTHOR: R. Will, CREATION DATE: 8-Mar-79 
47 0047 } 
48 0048 ' MODIFIED BY: 
49 0049 : 
50 0050 ' R, Will, fi Hi VERSION 01 
51 Bos ! 01 - gr igine 
2§ O36 : 1-008 - Pre t string Linkeges with STR$. JBS_ 04-JUN-1979 
5 Boe ! 1-003 - Add BASLNK for scaling Linkages. RW -Jun-7 
54 54 ! 1-004 - change to use new conversion routines. RW 7-Jul-79 
55 055 ! 1-005 - ade ongword entry point. RW Sept- 
56 026 : 1-008 - String cleanup, don't use S$STR$ macros. RW s0n0ct= -79 
57 05 ! 1-007 = Add entry points ay g & h floating. PLL 35-Sep-81 


0 1 


iz 
! 


8 | 


ifosee-1 9g Miseil? — BNSRTLESRESEAgSYR:83277 
1-008 = Add entry point for packed decimal. PLL 19-Jan-82 
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i OWN STORAGE: NONE 


EXTERNAL REFERENCES: 


061 1! 
$06 1 ! SWITCHES: 
065 1! 
0064 1 
0065 1 SWITCHES ADDRESSING_MODE 
4 4 1 
067 1! 
BR08 1 ! LINKAGES: NONE 
B98 1! 
0070 1 
0071 1! 
B0r¢ 1 ! TABLE OF CONTENTS: 
0735 1! 
0074 1 
0075 1 FORWARD ROUTINE 
0076 1 BASSSTR_L : NOVALUE, 
0077 1 ASSSTR-F : NOVALUE, 
0078 1 BASSSTR_D : NOVALUE, 
0079 1 BASSSTR-G : NOVALUE, 
0080 1 BASSSTR_H : NOVALUE, 
0081 1 BASSSTR_P : NOVALUE; 
0082 1 
0083 1! 
0084 1 ! INCLUDE FILES: 
0085 1! 
0086 1 
0087 1 REQUIRE ‘RTLIN:RTLPSECT'; 
0182 1 REQUIRE ‘RTLIN:BASLNK'; 
0259 1 REQUIRE "RTLIN:BASFRAME’; 
0462 1 
0465 1! 
0464 1 ! MACROS: NONE 
0465 1! 
0466 1 
0467 1 '! 
0468 1 ! EQUATED SYMBOLS: 
0469 1! 
0470 1 
0471 1 LITERAL 
0472 1 digits_in_long = 10, 
0473 «(1 
0474 1 strip_spaces = 1; 
0475 1 
476 1! 
47 1 ! PSECT DECLARATIONS 
0478 1! 
0479 1 
0480 : DECLARE_PSECTS (BAS); 
q 
1 
1 
1 
1 
1 
1 
1 


N 1 
IESE PRESET MASH Shana ksth st 


BASRTL.SR TR.B32; 


(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! Find STR$ of a Longword value 
! Find STR$ of a floating value 
! Find STR$ of a double value 

! Find STR$ cf ag float value 
: Find STR$ of an h float value 
! Find STR$ of a decimal value 


' Declare PSECTs code 
Linkages for BASIC scaling 
Define offsets in a BASIC frame 


# of digits to display for longqword 
note: float & double use the default 
flag for stripping spaces 


Page 
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(2) | 


2 
BASSSTR 1e-s6 -1984 6:03 AX-11 Bliss-32 V4.0-742 Page 
mitt eae Yi Mis 6:41 BASRTL.SRCJBASSTR.B32;1 
; (119 0490 1 care eur ine 
> 120 0491 1 T_0_G, ' Convert dbl to BASIC string format 
: 1s] 0492 1 BaSscyT™ “bute “6_G, ' Convert gfloat to BASIC string format 
.% ¢ 0493 1 BASSCVT_OUT_H_G, ' Convert hfloat to BASIC string format 
s i2 0494 1 BASSCVT_OUT_P_G; ! Convert packed to BASIC string format 
> 124 0495 1 
foe’ +. 0496 1 BUILTIN 
> 126 0497 1 CVTLD; ! Convert long to double to call CVT rtn 


ey 


. 8 
BASSSTR 16-Sep-1984 01:16:03 AX-11 Bliss-32 V4.0-742 
1-00 1228681 382 11:56:41 BASRTL.SRCIBASSTR.B32; 1 
9 GLOBAL ROUTINE BASSSTR_L ( ! convert integer to string 
9 STRING, ! Address of destination descriptor 
0 VALUE) : ! Find numeric value of this number 
8 NOVALUE = 
0 '+4 
FUNCTIONAL DESCRIPTION: 
0 This routine takes a longword integer and formats it as the BASIC PRINT 
0 statement would without leading and trailing spaces 
5 and gives that value to the destination string. 
i FORMAL PARAMETERS: 
STRING. wt.dx pointer to input string descriptor 
VALUE.rl.v value of a longword number 
i IMPLICIT INPUTS: 
NONE 
i IMPLICIT OUTPUTS: 


Be Se Be Be Oe Be Be Se Be Se Se Se Se Se Se Be Ge Ge Be Be Se Ge Ge Se FH Ge Se Se Ge Se Se Ge Se Se Ge Se Se Se Ses Se Se Be Se See See Be Se Fe Se Sees ee te ee 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 

i SIDE EFFECTS: 
This routine calls the conversion routine and so may signal any of its 
errors or have any of its side effects. In particu rd Mg. conversion 


routine calls STR$ routines and so | allocate or deallocate dynamic 
e 
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' 
NONE 
' 

' 

' 

J 

' 

' 

' 

' 

' 

' 
string space, and lock a string from being written for a period. 
' 


BEGIN 


QV PUI PV SVS SIV SISSIES SUSU SUSU SUSU SISSIES 
AWA AN AANA POPEDINININNNINS 2 SS SS OO OO Ot Ow 


Pp 
STRING : REF BLOCK (8,BYTE); 


LOCAL 
STR_LENGTH : WORD, 
TEMP : VECTOR C2, LONG); 


CVTLD (VALUE, TEMP (01); 
BASSCVT_OUT_6_G (TEMP (OJ, 


conversion rtn returns len 
need double to pass to cnv 


make value into double | 
convert this value to string 


strip spaces, set Lg to strip spaces 
STR ENGTA return bytes needed for str 
STRING C0,0,0.0), descriptor of result string 


no scale factor 
# of significant digits 


digits_in_long); 


00006009 SI NINN SN NN NN SAA AAAAAAOAOAMUVIMVIVIUIUUIUIVUIS BEEBE EEE EWAN Ou 
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PAV ZSSaNerRan=s OWONOAW EWN O OONAUE WN O OODNAUES WN (“OOD ONOUES WN OOD 
COOOOSCOCOSOCOCOCOOCOCOS V®OOOCOCOSOSCOSSOOCOSOSOGOOCCOOOCSOOCOOOCOOOCOCOOOOOCOOOOOCOO 
PWN 0 ODN UE WN 0 ODNAU EWIDO OD NOUN EWN O OW NOAOU EWN OC OONOAMES WH —OOO 


ES st ae 
MON & LLL 


RETURN; 
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>; «(185 0555 1 END; 


000000006 00 


; Routine Size: 33 bytes, Routine Base: 


08 AC 6€ 


04 AC OD 
OC AE 9F 


18 AE OF 


COOoOoooCooooo 
mee - OOOCCOO 
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-BASSCODE + 0000 
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p= 1984 
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‘End of BASSSTR_L 
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_BASSCODE NOWRT. SHR, 
BASSSTR_L, Save nothing 
VALUE, TEMP 

#10 

-(SP) 

STRING 

sn Leneen 


TEMP 
#6, BASSCVT_OUT_D_G 
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1 
GLOBAL ROUTINE BASSSTR_F ( 
' 


2 
16-Sep-19 4 01:16:03 rete Bliss-32 V4.0- 


floating number to a string 
STRING, ! Address of destination descriptor 
LUE) : Find numeric value of this string 


VA : 
NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


This routine takes a ag phe number and formats it as the BASIC PRINT 
statement would without leading and trailing spaces 
and gives that value to the destination string. 


i FORMAL PARAMETERS: 


STRING. wt.dx pointer to input string descriptor 
VALUE .rf.v value of a floating number 


i IMPLICIT INPUTS: 


NONE 


i IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 
| COMPLETION CODES: 


NONE 


i SIDE EFFECTS: 


This routine calls the conversion and so may signal any of its errors 
or have any of its side effects. In particular, the conversion routine 
calls STR$ routines and so may allocate or deallocate dynamic string 
space, or write lock a string for a time. 


BEGIN 


Pp 
STRING : REF BLOCK (8,BYTE); 


conversion rtn returns len 


OCAL 
STR_LENGTH : WORD, 
need double to pass to cnv 


TEMP : VECTOR (2, LONG); 


ce 9 . gus: ! make value into double 
BASSCVT_OUT_0_G (TEMP (0), ! convert this value to string 
stri ' set flag to strip spaces 
' return pytes needed for str 


! descripvor of result string 
' no scale to cvt . 
! default # of digits 
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BASRTL.SRCJBASSTR.B32; 


a. 
i608" esept9be 81i580) — EBASRTLeSACTBASSYR:B30/1 


> 246 0613 RETURN; 
45 0614 f ND; 

0000 00000 -ENTRY 

SE oc Ce 44 SUBL2 

04 AE 08 AC 00 0000 MOVL 

08 AE D4 OO00A CLRL 

8 AC DD 0000D PUSHL 
4 AE 9F 00010 PUSHAB 

01 dd 00013 PUSHL 
10 AE 9F 00015 PUSHAB 

000000006 00 04 FB 00018 CALLS 

04 0001F ET 


; Routine Size: 52 bytes, Routine Base: _BASSCODE + 0021 


!End of BASSSTR_F 


GASSSTR SF. Save nothing 
VALUE, TEMP 

TEMP +4, 

STRING 

STR_LENGTH 


TEMP 
#4, BASSCVT_OUT_D_G 
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‘be -Sep-19 r 16:03 Ax-11 Oi ise -32 v4.0-7 
14-Sep-1984 1 :56: 41 BASRTL. SRC} BASSTR. B35; 
GLOBAL ROUTINE BASSSTR_D ( ! convert Sate fo tlon"g 
TRING, ! Address of destination descriptor 
VALUE} ! Ist longword of double value to put in 
VALUE 2S : ! 2nd longwrd of double value for string 
= 


'e4 
eweioem DESCRIPTION: 


This routine takes a double number and formats it as the BASIC PRINT 
statement would, except without leading and schetsing spaces, 

and gives that value to the destination strin ng. 

Note that this routine violates the calling standard by accepting and 
calling a routine with double floating passed by value. 


{FORMAL PARAMETERS: 
STRING. wt.dx et pony to ey string descriptor 
VALUE .rd.v alue of a double number 
(VALUE and VALUE2 used to pick up the 2 words of double value) 
IMPLICIT INPUTS: 
Scale factor from the BASIC frame 
IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE : 
COMPLETION CODES: 


NONE 

SIDE EFFECTS: 
This routine calls the conversion routine and so may signal any of its 
errors and have any o% its side effects. In particular, the conversion 


routine calls STR$ routines and so may allocate or deal locate 
dynamic string space, or write lock a string for a short time. 


BEGIN 


P 
STRING : REF BLOCK (8,BYTE); 


LOCAL 
STR LENGTH : WORD; 


BASSCVT_OUT_D_ P hy ee 


conversion rtn returns Len 
convert this value to string 


' 
ote spaces, ' set flag to strip spaces 
STR ENGI ' return ytes needed for str 
STRING C0,0,0,0), ' return s ring 
SBASSSCAL é): scale fact 


default # = digits 


Page 
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; Routine Size: 


H 2 
16-Sep-1984 01:16:03 AX=11 Bliss-32 V4.0-74 Page 10 
19-38-38 Oi) 241 BASRTL. SRC IBASSTR.B32: 
67 | 
ore g RETURN; 
674 1 END; ‘End of BASSSTR_D 
.EXTRN BASSSSCALE_L_R1 
OFFC 00000 eENTRY Basssteo. Save R2,R3,R4,R5,R6,R7,RB,RI,- 3 0615 
SE 04 C2 0000 SUBL2 my : | 
51 5D DO 9000 MOVL ’ FMP : 0669 
50 0c Al DO 00008 MOVL 12¢FMP), RO : 
000000006 00 16 0000C JSB BASSSSCALE_L_R1 F 
50 DD 00012 PUSHL RO : 
04 AC DD 00014 PUSHL STRING 3 
08 AE 9F 00017 PUSHAB STR_LENGTH > 0666. 
01 DD OOO1A PUSHL #1 > 0669 | 
08 AC 9F QOOIC PUSHAB VALUE1 3; 0666) 
000000006 00 05 FB OOOIF CALLS #5, BAS$CVT_OUT_D_G > 0669 | 
04 00026 ET > 0674 


39 bytes, 


Routine Base: _BASSCODE + 0041 


2 
esse" ISRsscaMs CU:AE:ETWStGA°Uadt Ys 


14-Sep-1 BASR R.B32; 
: 308 675 1 GLOBAL ROUTINE BASSSTR_G ( ! convert g float to string 
; 309 ore 1 STRING, ! Address of destination descriptor 
s 310 677 1 VALUE1 ! Ist longword of g float value to put in 
; 1 0678 VALUE 25 : i 2nd longwrd of g float value for string 
; i be om 
> 314 be 1 1 {ee 
: 1? et : FUNCTIONAL DESCRIPTION: 
; 317 bege 1! This routine takes a g float number and formats it as the BASIC PRINT 
5s Ww 685 1! statement would, except without jeading and trailing spaces, 
> 319 pene 1! and gives that value to the destination Hilly 
: 0 6 1! Note that this routine violates the calling standard by accepting and 
3 Bel pose : calling a routine with g floating passed by value. 
; 358 0690 1 ! FORMAL PARAMETERS: 
$ $e 0691 1! ; 
s ie 0692 1! STRING. wt.dx pointer to input a descriptor 
; 326 0693 1! VALUE .rg.v value of a 9 float number 
3 4 pene : (VALUE1 and VALUE2 used to pick up the 2 words of g float value) 
; $$2 0696 1 ! IMPLICIT INPUTS: 
; 0 0697 1! 
: $3! 0698 1! NONE 
; 332 0699 1! 
3 S323 0700 1 ! IMPLICIT OUTPUTS: 
; 334 0701 1! 
3 32? 344 1! NONE 
; 336 0703 1! 
s Sor 0704 1 ! ROUTINE VALUE: 
3; sae 0705 1 ! COMPLETION CODES: 
3 So 0706 1! 
; 340 0707 1! NONE 
; «341 0708 1! 
; 348 0709 1 ! SIDE EFFECTS: 
; 34 0710 1! , ; 
: 344 0711 1! This routine calls the conversion routine and so may signal any of its 
; 345 org 1! errors and have any of its side effects. In particular, the conversion 
; 346 0715 1! routine calls STR$ routines and so may allocate or deal locate 
s 4 Bete ' dynamic string space, or write lock a string for a short time. 
3; 349 0716 1 !-- 
BP BMD ecm 
3 25 6719 
. ze 370 P 
3: 354 0721 STRING : REF BLOCK (8,BYTE); 
: ioe O7s¢ 
; 28 3 LOCAL 
3 44 7 : STR_LENGTH : WORD; ! conversion rtn returns len 
: 339 726 BASSCVT_OUT_G_G (VALUE1, ' convert this value to string 
3 0 727 strip spaces, ' set flag to strip spaces 
: 361 728 STR ENGI ' return ytes needed for str 
: § 729 STRING C0,0,0,0); ' return string 
; $07 te! ! default # of digits 


16:03 AX-11 Bliss-32 V4.0-742 
6:41 BASRTL.SRCJBASSTR.B32;1 


3 2 RETURN; 
END; 'End of BASSSTR_G 


0000 00000 -ENTRY BASS$STR_G, Save nothing 
5E 04 C2 00002 SUBL2 #4, S 
04 AC DD 00005 PUSHL STRING 
04 AE 9F 00008 PUSHAB STR_LENGTH 
01 OD 4 PUSHL #1 
08 AC 9F 0000D PUSHAB VALUE 
000000006 00 04 FB B08 19 CALLS #4, BASS$SCVT_OUT_G_G 
04 0001 RET 


; Routine Size: 24 bytes, Routine Base: _BASSCODE + 0068 


Page 12. 
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BASSSTR 16-Sep-1984 01:16:03 AX-11 Bliss-32 V4.0-74 Page 13 
tity 12286871382 94:08:93 BASRTL. REIBASSTR B3e09 . (7). 
H 734 1 GLOBAL ROUTINE BASSSTR_H ( ! convert g float to string 
; 36 735 «(1 STRING, ! Address of destination descriptor 
; 2 7 § 1 VALUE1, ! Ist longword of h float value to put in 
; 371 7 1 VALUE2, : gnd lLongword of h float value for string 
: if 0738 1 VALUE ! Srd longword of h float value 
: 37 0739 1 VALUEGS : i 4th Longword of h float vatue 
> 374 0740 1 NOVALUE = 
3 OI? 0741 1 
; 376 greg 1 !4¢ 
: a bez : FUNCTIONAL DESCRIPTION: 
3; 379 Bete 1! This routine takes an h float number and formats it as the BASIC PRINT 
; 380 ms 1! statement would, except without leading and trailing spaces, 
; 381 0747 1! and gives that value to the destination string. 
; 0748 1! Note that this routine violates the calling standard by accepting and 
3 te 54 ! calling a routine with double floating passed by value. 
; fee 0751 1 ! FORMAL PARAMETERS: 
; 386 8736 1! 
3 (Ser 0755 1! STRING.wt.dx pointer to input string descriptor 
; 388 0754 1! VALUE .rg.v value of a double number 
; 4 Bee : (VALUE1, VALUE2, VALUE3, & VALUE4 used to pick up the 4 words of h float value) 
; 391 0757 1°! IMPLICIT INPUTS: 
3; 39 0758 1! 
; By 0759 1! NONE 
3; 394 0760 1! 
3 we 0761 1 ! IMPLICIT OUTPUTS: 
; 396 B76 1! 
3 jer 0765 1! NONE 
; 398 0764 1! 
; 399 0765 1 ! ROUTINE VALUE: 
; 400 0766 1 ! COMPLETION CODES: 
; 401 0767 1! 
; 40 0768 1! NONE 
; 40 0769 1! 
3; 404 0770 1 ! SIDE EFFECTS: 
: 405 0771 1! 
; 406 44k 1? This routine calls the conversion routine and so may signal any of its 
3; 407 0773 1! errors and have any of its side effects. In particular, the conversion | 
; 408 0774 1! routine calls STR$ routines and so may allocate or deailocate 
; eed 446 ' dynamic string space, or write lock a string for a short time. | 
; ant O77 1 ie 
3 tig 778 «#1 
3; «41 tha BEGIN 
3 414 780 
3; 415 0781 MAP 
3 $18 44 STRING : REF BLOCK (8,BYTE); 
3; 418 784 LOCAL 
: ‘t gre? STR_LENGTH : WORD; ! conversion rtn returns Len 
; rey 78 BASSCVT_OUT_H_G (VALUE1, ' convert this value to string 
; $36 788 strip spaces, ' set de to strip spaces 
3; 42 789 STR ENGTH ! return bytes needed for str 
3: 426 790 STRING C0,6,0,0)); ! return string 


0000 00000 

5E ‘ Sf: ce 000 

4 AE OF 000 
01 0d 00008 
08 AC 9F Dd 
000000006 00 04 FB 19 
04 1 


; Routine Size: 24 bytes, Routine Base: _BASSCODE + 0080 


1-sep-19 4 01:1 


BASSSTR 6:03 AX-11 Bliss-32 V4.0-742 
1 14-Sep-1984 11:56:41 BASRTL.SRCIJBASSTR.B32;1 
; 425 791 ! default # of digits 

i 426 Ore 2 , 

; 4 079 RETURN; 

> 428 0794 END; 'End of BASSSTR_H 


ENTRY BASSSTR_H, Save nothing 
#4, SP 
STRING 

PUSHAB STR_LENGTH 


VALUE1 
cats #4, BASSCVT_OUT_H_G 


M 2 
BASSSTR 16-Sep-1984 01:16:03 AX-11 Bliss-32 V4.0-74 Page 15 
witty 1e78ep- 1980 F1:88:2F = HBNSa tL OgAE Seas Ye 9309 9° 68) 
; 430 0795 1 GLOBAL ROUTINE BASS$STR_P ( ' pecked number to a string 
; 431 £38 1 STRING, ! Address of destination descriptor 
: 4 ¢ 797 «(1 VALUE) : ! Find numeric value of this string 
; 4 798 «1 NOVALUE = 
> 434 0799 1 
> 435 bent 1 !+¢ 
3 43? oI ! : FUNCTIONAL DESCRIPTION: 
; 438 Ogos 1! This routine takes a packed decimal number and formats it as the BASIC 
> 439 0804 1! PRINT statement would without coqe ing and trailing spaces 
3 rr | bee ! and gives that value to the destination string. 
; 44 + 84 1 ! FORMAL PARAMETERS: 
3; 44 0808 1! 
3 444 0809 1! STRING. wt.dx pointer to input string descriptor 
3 ree bai) ’ VALUE .rp.dsd desc of packed decimal number 
; 447 Baig 1 ! IMPLICIT INPUTS: 
; 448 0813 1! 
3; 449 0814 1! NONE 
; 450 0815 1! 
; 451 0816 1 ! IMPLICIT OUTPUTS: 
; $26 0817 1! 
; 45 0818 1! NONE 
3; 4454 0819 1! 
3; 455 bass 1 ! ROUTINE VALUE: 
; 456 0821 1 ! COMPLETION CODES: 
: 457 bese 1! 
; 458 0825 1! NONE 
; 459 0824 1! 
; 460 0825 1 ! SIDE EFFECTS: 
: 461 0826 1! 
; 462 0827 1! This routine calls a conversion routine and so may signal any of its errors 
; 463 0828 1! or have any of its side effects. In particular, the conversion routine 
3 464 4 1! calls STR$ routines and so may allocate or deal locate dynamic string 
3; 465 0830 1! space, or write lock a string for a time. 
> 466 0831 1! 
; 467 sti 1 !-- 
; 468 08335 1 
; 469 0834 BEGIN 
: 470 0835 
3 471 0836 P 
3: 472 0837 STRING : REF BLOCK (8,BYTE), 
3 473 bas6 VALUE : REF BLOCK (12,BYTEJ; 
3; 4674 839 
3; 475 0840 LOCAL 
: $76 Bae, STR_LENGTH : WORD; ' conversion rtn returns len 
; 478 ope BASSCVT_OUT_P_G (.VALUE, ' convert this value to string 
: 479 0844 strip spaces, ! set viae to strip spaces 
3; 480 Baca STR ENGTH ' return bytes needed for str 
3; 481 0. § STRING £0,0,0,0)); ' descriptor of result string 
; 48 bat ' no scale to cvt | 
; 48 48 ! default # of digits 
3: «484 0849 
3; 485 tet RETURN; 
; 486 0851 1 END; 'End of BASS$STR_P 


N 2 
aaSep-i9be $1isbset — EBASATL SRE SeASsYR:B3004 


i608" 


a 608 sENTRY BASSSTR_P, Save nothing 
SE 04 C2 0000 SUBL2 #4, SP 
04 AC DD 0000 PUSHL STRING 

04 AE 9F 00008 PUSHAB STR_LENGTH 

01 DD 00008 PUSHL #1 

08 AC DD 00000 PUSHL VALUE 

000000006 00 04 FB 00010 CALLS #4, BASSCVT_OUT_P_G 
04 00017 RET 


; Routine Size: 24 bytes, Routine Base: _BASSCODE + 0098 


De Be Se Se Be Se Se Be 


esas 03 yA AX-11 Bliss-32 V4.0- 35/9 

| 1-008 14=Sep-1 1:56:41 BASRTL.SRCJBASSTR.B3c; 1 

? 488 9828 1 END ‘End of module 

: 489 0853 0 ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

; _BASSCODE 176 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=L1S$:BASSTR/OBJ=OBJ$:BASSTR MSRC$:BASSTR/UPDATE=(ENH$:BASSTR) 


3; Size: 176 code + 0 data bytes 
3; Run Time: op: 09-6 

3; Elapsed Time: 00:15.4 

3 Lines/CPU Min: 7766 

3; Lexemes/CPU-Min: 20922 

: aay Used: 38 pages 

e a 


; Compilation Complete 


8.3). 04 9} 


1:1 


Page 


17, 
(9) 


0032 ° H-BT13A-SE | T CORPORATION 
: VAX/ VMS V4.0 = PROPRIETARY 


